home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 99
/
099.d81
/
bits 99
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
48 lines
10 poke56,56:clr:dv=peek(186):ifdv<8thendv=8
20 poke53280,0:poke53281,0:print"[147][154]"
97 :
98 :rem load font and point to it
99 :
100 sys57812"psb font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
110 poke53272,31
117 :
118 :rem load bg
119 :
120 sys57812"bg",dv,0:poke780,0:poke781,0:poke782,192:sys65493
130 sys49152:rem enable bg
140 sys49155:rem fill screen with 255
150 y=12:x=32
197 :
198 :rem menu
199 :
200 print"[158]"tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
210 [129]i[178]0[164]17:[153][163]7)"(NULL) (NULL)":[130]
220 [153][163]7)"/tantantantantantantantantantantantantantantantantantantantantantantantanexp"
230 [151]214,3:[153]:[153][163]14)"forpeek chr$ str$ val (NULL) (NULL)"
240 [153][163]9)"len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)open - slow/
250 printtab(10)"speed up effect"
260 printtab(11)"[208][197][197][203](49158) =[155] [157][157][157][157]"peek(49158)
270 printtab(9)"[195][210][211][210] [210][201][199][200][212]/[204][197][198][212] -
280 [153][163]10)"openslow/speed up how
290 printtab(10)"often effect happens
300 [153][163]11)"(NULL)valval(NULL)(49160) =list cmdcmdcmdcmd"[194](49160)
310 [153][163]9)"(NULL) open- (NULL)uit
320 printtab(9)"[154][204]ower number = faster
400 [161]a$:[139]a$[178]""[167]400
410 [139]a$[178]"q"[167]500
420 [139]a$[178]"on"[167]y[178](y[170]1)[175]255:[151]49158,y:[137]230
430 [139]a$[178]""[167]y[178](y[171]1)[175]255:[151]49158,y:[137]230
440 [139]a$[178]""[167]x[178](x[170]1)[175]255:[151]49160,x:[137]230
450 [139]a$[178]"cmd"[167]x[178](x[171]1)[175]255:[151]49160,x:[137]230
460 [137]400
497 :
498 :[143] quit to loadstar
499 :
500 [158]49152:[151]53272,21:[153]"load"
510 [159]15,dv,15,"r0:hello connect=hello connect":[132]15,er:[160]15
520 [139]er[179][177]63[167][128]
530 [153]"loadstopload"[199](34)"hello connect"[199](34)","dv
540 [153]"run"
550 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"s0:bits 99":[160]15:[148]"bits 99",8:[128]